home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 08 System Utilities / AMENU.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.6 KB  |  55 lines
  1. 1 REM *********************************
  2. 2 REM *         'AUTO MENU'           *
  3. 3 REM * READS DIRECTORY AND AUTO LOADS*
  4. 4 REM * PROGRAMS SELECTED BY THE USER *
  5. 5 REM *             BY                *
  6. 6 REM *     AURORA DJ SYSTEMS.        *
  7. 7 REM *********************************
  8. 10 POKE 53280,0:POKE53281,0
  9. 20 DIM N$(100):CX=54272:PRINT"[147]"
  10. 30 PRINT"[147][129]"
  11. 40 X$="                                       "
  12. 50 FOR X=1 TO 5:PRINTX$:NEXT
  13. 60 PRINT"":PRINTCHR$(117);
  14. 70 FOR X=1 TO 38:PRINTCHR$(100);:NEXT
  15. 80 PRINTCHR$(105);:FOR X=1TO5
  16. 90 PRINTCHR$(103)SPC(38)CHR$(104)" "CHR$(157);:NEXT
  17. 100 PRINTCHR$(106);:FOR X=1TO38:PRINTCHR$(102);:NEXT:PRINTCHR$(107)
  18. 110 PRINT""TAB(14)"* AUTO MENU *"
  19. 120 PRINT TAB(12)"[158]READING DIRECTORY"
  20. 129 REM --- READ DISK DIRECTORY ---
  21. 130 OPEN1,8,0,"$"
  22. 140 GET#1,B$:IFST<>0 THEN 260
  23. 149 REM --- LINE 150 LIMITS TO 26 FILES ---
  24. 150 IF F>=27 THEN 260
  25. 160 IFB$<>CHR$(34)THEN 140
  26. 170 N$="":PRINT"":POKE 214,8:PRINT
  27. 180 GET#1,B$:IF B$<>CHR$(34)THEN N$=N$+B$:GOTO 180
  28. 190 GET#1,B$:IF B$=CHR$(32)THEN 190
  29. 200 IF N$="BOOT"THENF=F-1:GOTO240
  30. 210 IF N$="AUTO MENU"THENF=F-1:GOTO 240
  31. 220 IFLEFT$(N$,1)=" "THENF=F-1:GOTO240
  32. 230 N$(F)=" "+N$
  33. 240 GET#1,B$:IFB$<>""THEN 240
  34. 250 IFST=0THENF=F+1:GOTO 140
  35. 260 CLOSE 1
  36. 270 FORE=1TOF/2:PRINT"[153]"CHR$(64+E)""N$(E):NEXT
  37. 280 PRINT"":POKE214,8:PRINT
  38. 290 FORE=F/2+1TOF:PRINTSPC(20)"[153]"CHR$(64+E)""N$(E):NEXT
  39. 300 PRINT""
  40. 310 PRINTTAB(12)"[158]PRESS LETTER    
  41. 34 [171] @[153][163]5)"TO AUTO LOAD PROGRAM SELECTED"
  42. 330 [161]M$:[139]M$[178]""[167] 330
  43. 340 [139] M$[178][199](13)[167] [138]
  44. 350 [139] M$[179]"A"[176] M$[177][199](64[170]F)[167] 330
  45. 360 P[178][198](M$)[171]64:[153]"LOAD"
  46. 370 [139][195](N$(P))[177]12 [167]N$(P)[178][200](N$(P),12)[170]"*"
  47. 380 N$(P)[178][202](N$(P),2,[195](N$(P)))
  48. 390 [153]"LOAD"[199](34)N$(P)[199](34)",8,1ONONON"
  49. 400 [143] *******************************
  50. 410 [143] * IF YOU KNOW THE PGM IS 'ML' *
  51. 420 [143] * THE EXAMPLE BELOW WILL LOAD *
  52. 430 [143] * AND FILE & RUN IT. EXAMPLES *
  53. 440 [143] *     ARE SHOWN BELOW.        *
  54. 450 [143] *******************************
  55.